! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Initialization File
! 
! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor
!       (http://www.cs.vt.edu/~asandu/Software/KPP)
! KPP is distributed under GPL, the general public licence
!       (http://www.gnu.org/copyleft/gpl.html)
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech
!     With important contributions from:
!        M. Damian, Villanova University, USA
!        R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
! 
! File                 : aromatics_kpp_Initialize.f90
! Time                 : Mon Nov 23 18:18:23 2020
! Working directory    : /n/home08/kbates/Aromatics/CRI
! Equation file        : aromatics_kpp.kpp
! Output root filename : aromatics_kpp
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



MODULE aromatics_kpp_Initialize

  USE aromatics_kpp_Parameters, ONLY: dp, NVAR, NFIX
  IMPLICIT NONE

CONTAINS


! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Initialize - function to initialize concentrations
!   Arguments :
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

SUBROUTINE Initialize ( )


  USE aromatics_kpp_Global

  INTEGER :: i
  REAL(kind=dp) :: x

  CFACTOR = 2.500000e+19_dp

  x = (1.0E-30)*CFACTOR
  DO i = 1, NVAR
    VAR(i) = x
  END DO

  x = (1.0E-30)*CFACTOR
  DO i = 1, NFIX
    FIX(i) = x
  END DO

  VAR(26) = (1.8E-6)*CFACTOR
  VAR(32) = (0.5E-4)*(0.0E-9)*CFACTOR
  VAR(33) = (1.5E-4)*(0.0E-9)*CFACTOR
  VAR(34) = (0.7E-5)*(5.0E-4)*CFACTOR
  VAR(38) = (2.0E-7)*CFACTOR
  VAR(164) = (3.0E-9)*CFACTOR
  VAR(198) = (7.5E-8)*CFACTOR
  VAR(206) = (5.0E-3)*(5.0E-4)*CFACTOR
  FIX(1) = (1.0E-2)*CFACTOR
  FIX(2) = (2.1E-1)*CFACTOR
! constant rate coefficients
  RCONST(13) = 5.35e+07
  RCONST(22) = 2e-11
  RCONST(26) = 4e-12
  RCONST(407) = 9.9206e-11
  RCONST(408) = 1.1574e-11
  RCONST(409) = 3.9684e-12
  RCONST(410) = 3.3068e-13
  RCONST(417) = 1.7e-11
  RCONST(422) = 2.3e-12
  RCONST(423) = 2.63e-11
  RCONST(424) = 3.78e-12
  RCONST(433) = 4.65e-11
  RCONST(434) = 1.25e-11
  RCONST(439) = 2.3e-12
  RCONST(444) = 2.3e-12
  RCONST(449) = 2.3e-12
  RCONST(450) = 7.3e-11
  RCONST(452) = 9.77e-11
  RCONST(458) = 2.08e-12
  RCONST(459) = 7.16e-11
  RCONST(461) = 9.64e-11
  RCONST(467) = 2.08e-12
  RCONST(468) = 8.31e-11
  RCONST(470) = 1.12e-10
  RCONST(476) = 2.4e-13
  RCONST(478) = 1.5e-12
  RCONST(479) = 9e-13
  RCONST(480) = 9e-14
  RCONST(487) = 2.3e-12
  RCONST(488) = 1.53e-12
  RCONST(489) = 3.13e-13
  RCONST(502) = 2.3e-12
  RCONST(511) = 1.65e-11
  RCONST(513) = 1.25e-11
  RCONST(517) = 1.96e-11
  RCONST(520) = 7.3e-13
  RCONST(522) = 1.89e-11
  RCONST(524) = 9.2e-13
  RCONST(527) = 3.57e-11
  RCONST(532) = 1.31e-12
  RCONST(533) = 2.5e-11
  RCONST(535) = 1.09e-12
  RCONST(536) = 2.13e-11
  RCONST(547) = 2.3e-12
  RCONST(551) = 2.3e-12
  RCONST(553) = 1.27e-12
  RCONST(555) = 4.42e-12
  RCONST(560) = 2.3e-12
  RCONST(562) = 1.85e-12
  RCONST(564) = 4.21e-11
  RCONST(566) = 2.5e-11
  RCONST(567) = 1.03e-11
  RCONST(568) = 3.74e-11
  RCONST(574) = 2.3e-12
  RCONST(575) = 1.87e-11
  RCONST(580) = 2.3e-12
  RCONST(582) = 3.2e-11
  RCONST(583) = 1.38e-12
  RCONST(587) = 2.3e-12
  RCONST(590) = 1.79e-12
  RCONST(591) = 3.25e-11
  RCONST(593) = 5.86e-12
  RCONST(595) = 1.1574e-05
  RCONST(596) = 1.1574e-05
  RCONST(597) = 1.1574e-05
  RCONST(598) = 1.1574e-05
  RCONST(599) = 1.1574e-05
  RCONST(600) = 1.1574e-05
  RCONST(601) = 1.1574e-05
  RCONST(602) = 1.1574e-05
  RCONST(603) = 1.1574e-05
  RCONST(604) = 1.1574e-05
  RCONST(605) = 1.1574e-05
  RCONST(606) = 1.1574e-05
  RCONST(607) = 1.1574e-05
  RCONST(608) = 1.1574e-05
  RCONST(609) = 1.1574e-05
  RCONST(610) = 1.1574e-05
  RCONST(611) = 1.1574e-05
  RCONST(612) = 1.1574e-05
  RCONST(613) = 1.1574e-05
  RCONST(614) = 1.1574e-05
  RCONST(615) = 1.1574e-05
  RCONST(616) = 1.1574e-05
  RCONST(617) = 1.1574e-05
  RCONST(618) = 1.1574e-05
  RCONST(619) = 1.1574e-05
  RCONST(620) = 1.1574e-05
  RCONST(621) = 1.1574e-05
  RCONST(622) = 1.1574e-05
  RCONST(623) = 1.1574e-05
  RCONST(624) = 1.1574e-05
  RCONST(625) = 1.1574e-05
  RCONST(626) = 1.1574e-05
  RCONST(627) = 1.1574e-05
  RCONST(628) = 1.1574e-05
  RCONST(629) = 1.1574e-05
  RCONST(630) = 1.1574e-05
  RCONST(631) = 1.1574e-05
  RCONST(632) = 1.1574e-05
  RCONST(633) = 1.1574e-05
  RCONST(634) = 1.1574e-05
  RCONST(635) = 1.1574e-05
  RCONST(636) = 1.1574e-05
  RCONST(637) = 1.1574e-05
  RCONST(638) = 1.1574e-05
  RCONST(639) = 1.1574e-05
  RCONST(640) = 1.1574e-05
  RCONST(641) = 1.1574e-05
  RCONST(642) = 1.1574e-05
  RCONST(643) = 1.1574e-05
  RCONST(644) = 1.1574e-05
  RCONST(645) = 1.1574e-05
  RCONST(646) = 1.1574e-05
  RCONST(647) = 1.1574e-05
  RCONST(648) = 1.1574e-05
  RCONST(649) = 1.1574e-05
  RCONST(650) = 1.1574e-05
  RCONST(651) = 1.1574e-05
  RCONST(652) = 1.1574e-05
  RCONST(653) = 1.1574e-05
  RCONST(654) = 1.1574e-05
  RCONST(655) = 1.1574e-05
  RCONST(656) = 1.1574e-05
  RCONST(657) = 1.1574e-05
  RCONST(658) = 1.1574e-05
  RCONST(659) = 1.1574e-05
  RCONST(660) = 1.1574e-05
  RCONST(661) = 1.1574e-05
  RCONST(662) = 1.1574e-05
  RCONST(663) = 1.1574e-05
  RCONST(664) = 1.1574e-05
  RCONST(665) = 1.1574e-05
  RCONST(666) = 1.1574e-05
  RCONST(667) = 1.1574e-05
  RCONST(668) = 1.1574e-05
  RCONST(669) = 1.1574e-05
  RCONST(670) = 1.1574e-05
  RCONST(671) = 1.1574e-05
  RCONST(672) = 1.1574e-05
  RCONST(673) = 1.1574e-05
  RCONST(674) = 1.1574e-05
  RCONST(675) = 1.1574e-05
  RCONST(676) = 1.1574e-05
  RCONST(677) = 1.1574e-05
  RCONST(678) = 1.1574e-05
  RCONST(679) = 1.1574e-05
  RCONST(680) = 1.1574e-05
  RCONST(681) = 1.1574e-05
  RCONST(682) = 1.1574e-05
  RCONST(683) = 1.1574e-05
  RCONST(684) = 1.1574e-05
  RCONST(685) = 1.1574e-05
  RCONST(686) = 1.1574e-05
  RCONST(687) = 1.1574e-05
  RCONST(688) = 1.1574e-05
  RCONST(689) = 1.1574e-05
  RCONST(690) = 1.1574e-05
  RCONST(691) = 1.1574e-05
  RCONST(692) = 1.1574e-05
  RCONST(693) = 1.1574e-05
  RCONST(694) = 1.1574e-05
  RCONST(695) = 1.1574e-05
  RCONST(696) = 1.1574e-05
  RCONST(697) = 1.1574e-05
  RCONST(698) = 1.1574e-05
  RCONST(699) = 1.1574e-05
  RCONST(700) = 1.1574e-05
  RCONST(701) = 1.1574e-05
  RCONST(702) = 1.1574e-05
  RCONST(703) = 1.1574e-05
  RCONST(704) = 1.1574e-05
  RCONST(705) = 1.1574e-05
  RCONST(706) = 1.1574e-05
  RCONST(707) = 1.1574e-05
  RCONST(708) = 1.1574e-05
  RCONST(709) = 1.1574e-05
  RCONST(710) = 1.1574e-05
  RCONST(711) = 1.1574e-05
  RCONST(712) = 1.1574e-05
  RCONST(713) = 1.1574e-05
  RCONST(714) = 1.1574e-05
  RCONST(715) = 1.1574e-05
  RCONST(716) = 1.1574e-05
  RCONST(717) = 1.1574e-05
  RCONST(718) = 1.1574e-05
  RCONST(719) = 1.1574e-05
  RCONST(720) = 1.1574e-05
  RCONST(721) = 1.1574e-05
  RCONST(722) = 1.1574e-05
  RCONST(723) = 1.1574e-05
  RCONST(724) = 1.1574e-05
  RCONST(725) = 1.1574e-05
  RCONST(726) = 1.1574e-05
  RCONST(727) = 1.1574e-05
  RCONST(728) = 1.1574e-05
  RCONST(729) = 1.1574e-05
  RCONST(730) = 1.1574e-05
  RCONST(731) = 1.1574e-05
  RCONST(732) = 1.1574e-05
  RCONST(733) = 1.1574e-05
  RCONST(734) = 1.1574e-05
  RCONST(735) = 1.1574e-05
  RCONST(736) = 1.1574e-05
  RCONST(737) = 1.1574e-05
  RCONST(738) = 1.1574e-05
  RCONST(739) = 1.1574e-05
  RCONST(740) = 1.1574e-05
  RCONST(741) = 1.1574e-05
  RCONST(742) = 1.1574e-05
  RCONST(743) = 1.1574e-05
  RCONST(744) = 1.1574e-05
  RCONST(745) = 1.1574e-05
  RCONST(746) = 1.1574e-05
  RCONST(747) = 1.1574e-05
  RCONST(748) = 1.1574e-05
  RCONST(749) = 1.1574e-05
  RCONST(750) = 1.1574e-05
  RCONST(751) = 1.1574e-05
  RCONST(752) = 1.1574e-05
  RCONST(753) = 1.1574e-05
  RCONST(754) = 1.1574e-05
  RCONST(755) = 1.1574e-05
  RCONST(756) = 1.1574e-05
  RCONST(757) = 1.1574e-05
  RCONST(758) = 1.1574e-05
  RCONST(759) = 1.1574e-05
  RCONST(760) = 1.1574e-05
  RCONST(761) = 1.1574e-05
  RCONST(762) = 1.1574e-05
  RCONST(763) = 1.1574e-05
  RCONST(764) = 1.1574e-05
  RCONST(765) = 1.1574e-05
  RCONST(766) = 1.1574e-05
  RCONST(767) = 1.1574e-05
  RCONST(768) = 1.1574e-05
  RCONST(769) = 1.1574e-05
  RCONST(770) = 1.1574e-05
  RCONST(771) = 1.1574e-05
  RCONST(772) = 1.1574e-05
  RCONST(773) = 1.1574e-05
  RCONST(774) = 1.1574e-05
  RCONST(775) = 1.1574e-05
  RCONST(776) = 1.1574e-05
  RCONST(777) = 1.1574e-05
  RCONST(778) = 1.1574e-05
  RCONST(779) = 1.1574e-05
  RCONST(780) = 1.1574e-05
  RCONST(781) = 1.1574e-05
  RCONST(782) = 1.1574e-05
  RCONST(783) = 1.1574e-05
  RCONST(784) = 1.1574e-05
  RCONST(785) = 1.1574e-05
  RCONST(786) = 1.1574e-05
  RCONST(787) = 1.1574e-05
  RCONST(788) = 1.1574e-05
  RCONST(789) = 1.1574e-05
  RCONST(790) = 1.1574e-05
  RCONST(791) = 1.1574e-05
  RCONST(792) = 1.1574e-05
  RCONST(793) = 1.1574e-05
  RCONST(794) = 1.1574e-05
! END constant rate coefficients

! INLINED initializations

        TSTART = 0
        TEND = TSTART + 707400
        DT = 60.0
        TEMP = 298

! End INLINED initializations

      
END SUBROUTINE Initialize

! End of Initialize function
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



END MODULE aromatics_kpp_Initialize

